home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / FROMUTS / UNIXLIB37B / src / c / strlen < prev    next >
Text File  |  1990-09-26  |  378b  |  24 lines
  1. #ifdef __STDC__
  2. static char sccs_id[] = "@(#) strlen.c 1.0 "__DATE__" HJR";
  3. #else
  4. static char sccs_id[] = "@(#) strlen.c 1.0 26/9/90 HJR";
  5. #endif
  6.  
  7. /* strlen.c (c) Copyright 1990 H.Rogers */
  8.  
  9. #include <string.h>
  10.  
  11. #ifdef __STDC__
  12. size_t strlen(register const char *s)
  13. #else
  14. size_t strlen(s)
  15. register const char *s;
  16. #endif
  17. {
  18. register size_t n = 0;
  19.  
  20. while (*s++) n++;
  21.  
  22. return(n);
  23. }
  24.